home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 10 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  663b  |  28 lines

  1. 10 REM HELP-DEMO
  2. 20 :
  3. 30 SYS32168
  4. 35 POKE 650,128 :REM ALLE TASTEN REPEAT-FUNKTION
  5. 40 :
  6. 50 REM ANZAHL UND NAMEN DER HELP-SEITEN
  7. 60 N=3 :REM ANZAHL DER HELP-SEITEN
  8. 70 DN$(0)="" :DN$(N+1)=""
  9. 80 FOR I=1 TO N :DN$(I)="HELPSEITE"+STR$(I) :NEXT
  10. 90 :
  11. 100 REM HELP-SEITEN ANLEGEN UND SPEICHERN
  12. 110 FOR I=1 TO N
  13. 120 (null) 1,1,"GEBEN SIE DEN HELP-TEXT"
  14. 130 (null) 3,"FUER SEITE"+STR$(I)+" EIN !!"
  15. 140 (null) 5,"ENDE DER EINGABE MIT 'F3' !"
  16. 150 (null)1,10,10,24,39,1,0,DN$(I) :(null)1,(I+1)*2,128 :(null)1
  17. 160 PRINTCHR$(147)
  18. 170 (null)
  19. 180 (null) "@:"+DN$(I),DN$(I-1),DN$(I+1)
  20. 190 (null) :(null)1
  21. 200 NEXT
  22. 210 :
  23. 220 REM FERTIG, HELP AKTIVIEREN
  24. 230 (null) DN$(1)
  25. 240 (null) 10,1,"HELP-FUNKTION AKTIVIERT,"
  26. 260 (null) 12,1,"AUFRUF MIT 'F5' ODER 'HELP'-BEFEHL !"
  27. 270 END
  28.